home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / odbcall.zip / SORTDEMO.ZIP / UNIT1.DFM / UNIT1.txt
Text File  |  1995-11-05  |  2KB  |  121 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 102
  4.   Width = 522
  5.   Height = 376
  6.   Caption = 'Un-sorted'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   OnCreate = FormCreate
  13.   TextHeight = 16
  14.   object DataGrid1: TDataGrid
  15.     Left = 0
  16.     Top = 117
  17.     Width = 510
  18.     Height = 228
  19.     Align = alClient
  20.     ColCount = 2
  21.     DataSource = ODBCQuery1
  22.     Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goTabs]
  23.     RowCount = 2
  24.     ColWidths = (
  25.       10
  26.       110)
  27.   end
  28.   object Panel1: TPanel
  29.     Left = 0
  30.     Top = 0
  31.     Width = 510
  32.     Height = 117
  33.     Align = alTop
  34.     TabOrder = 1
  35.     object Label1: TLabel
  36.       Left = 16
  37.       Top = 8
  38.       Width = 89
  39.       Height = 16
  40.       Caption = 'Search Value:'
  41.     end
  42.     object ListBox1: TListBox
  43.       Left = 354
  44.       Top = 1
  45.       Width = 155
  46.       Height = 115
  47.       Align = alRight
  48.       ItemHeight = 16
  49.       MultiSelect = True
  50.       TabOrder = 0
  51.       OnClick = ListBox1Click
  52.     end
  53.     object Memo1: TMemo
  54.       Left = 229
  55.       Top = 1
  56.       Width = 125
  57.       Height = 115
  58.       Align = alRight
  59.       BorderStyle = bsNone
  60.       Ctl3D = False
  61.       Lines.Strings = (
  62.         ''
  63.         'Choose sort fields')
  64.       ParentColor = True
  65.       ParentCtl3D = False
  66.       ReadOnly = True
  67.       TabOrder = 1
  68.     end
  69.     object ClearSort: TBitBtn
  70.       Left = 8
  71.       Top = 32
  72.       Width = 99
  73.       Height = 33
  74.       Caption = 'Clear Sort Str'
  75.       TabOrder = 2
  76.       OnClick = ClearSortClick
  77.     end
  78.     object ReSort: TBitBtn
  79.       Left = 8
  80.       Top = 69
  81.       Width = 99
  82.       Height = 33
  83.       Caption = 'Re-Sort'
  84.       TabOrder = 3
  85.       OnClick = ReSortClick
  86.     end
  87.     object Find: TButton
  88.       Left = 118
  89.       Top = 31
  90.       Width = 99
  91.       Height = 33
  92.       Caption = 'Find'
  93.       TabOrder = 4
  94.       OnClick = FindClick
  95.     end
  96.     object Edit1: TEdit
  97.       Left = 120
  98.       Top = 4
  99.       Width = 92
  100.       Height = 24
  101.       TabOrder = 5
  102.       Text = '1995/7/2'
  103.     end
  104.   end
  105.   object ODBCCon1: TODBCCon
  106.     Connected = False
  107.     ConnectionMethod = cmConnect
  108.     DataSource = 'InterBase'
  109.     Left = 390
  110.     Top = 6
  111.   end
  112.   object ODBCQuery1: TODBCQuery
  113.     Active = False
  114.     Connection = 'InterBase'
  115.     SQL.Strings = (
  116.       'select * from DemoTable')
  117.     Left = 392
  118.     Top = 42
  119.   end
  120. end
  121.